home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dos.swg / 0043_Is there 4DOS installed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  424 b   |  19 lines
  1. (*
  2. From: MIKE DICKSON
  3. Subj: IS There 4DOS
  4. *)
  5.  
  6.         FUNCTION Running4DOS : Boolean;
  7.         VAR Regs : Registers;
  8.         begin
  9.            With Regs do
  10.               begin
  11.                  ax := $D44D;
  12.                  bx := $00;
  13.               end;
  14.            Intr ($2F, Regs);
  15.            if Regs.ax = $44DD then Running4DOS := TRUE
  16.                               else Running4DOS := FALSE
  17.         end;
  18.  
  19.